home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / Chip Mayıs 2001.iso / prog / share / 07 / ASPFusion / data1.cab / Admin_Pages / Admin / dsp_websitesecurity.asp < prev    next >
Encoding:
Text File  |  2001-03-25  |  5.4 KB  |  124 lines

  1. <%
  2. on error resume next
  3. dim SecurityBox
  4. if (Session("Index") <> "Index") then
  5.     Response.Redirect "index.asp"
  6. else
  7.     set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox")
  8. end if
  9. %>
  10. <!--- #include file = "index.js" --->
  11. <html>
  12. <head>
  13. <title>ASPFusion Security Box Administration</title>
  14. </head>
  15. <body bgcolor="#CAE4FF">
  16. <form action="act_websitesecurity.asp" Method="POST" NAME="websitesecurityform" Onload="return focusit(document.websitesecurity.WebSiteName);">
  17. <div align="right">
  18. <table width="70%" align="left">
  19.   <tr width="100%" align="right">
  20.     <td><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td>
  21.   </tr>
  22.   <tr width="100%" align="right">
  23.     <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td>
  24.   </tr>
  25.   <tr width="100%" align="right">
  26.     <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td>
  27.   </tr>
  28.   <tr width="100%" align="right">
  29.     <td><a href="dsp_default.asp" onmouseover="window.status='Default'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Default</font></a></td>
  30.   </tr>
  31.   <tr width="100%" align="right">
  32.     <td><a href="dsp_welcome.asp" onmouseover="window.status='<< Back'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1"><< Back</font></a></td>
  33.   </tr>
  34. </table>
  35.   <table cellpadding="0" cellspacing="1" width="25%">
  36.     <tr width="100%" align="right">
  37.       <td><img src="Images/aspfusion.gif"></td>
  38.     </tr>
  39.   </table>
  40. </div>
  41. <br>
  42. <table width="100%" cellpadding="0">
  43. <input type="hidden" value="" name="Logout">
  44. <input type="hidden" value="" name="Add">
  45. <input type="hidden" value="" name="Modify">
  46.   <tr>
  47.     <td colspan="2"><br>
  48.      <%if Request.QueryString("result") = "0" then%>
  49.         <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p>
  50.      <%else%>
  51.         <p> </p>
  52.      <%end if%>
  53.     </td>
  54.   </tr>
  55.   <tr>
  56.      <td width="25%"><br><font size="2" face="Arial">ASPFusion Security Box Name</font></td>
  57.      <td width="75%"><br>
  58.        <input type="text" name="WebSiteName" size="20"
  59.             value="<%if (Request.QueryString("result") = "0") then%>
  60.                    <%=Request.QueryString("WebSiteName")%>
  61.                    <%else%>
  62.                    <%=""%>
  63.                    <%end if%>">
  64.      </td>
  65.   </tr>
  66.   <tr>
  67.     <td colspan="2"><font face="Arial" size="2" color="#9D9D9D">Specify name with which new ASPFusion Security Box will be created.</font></td>
  68.   </tr>
  69.   <tr>
  70.      <td colspan="2"><br>
  71.        <b><font face="Arial" size="3" color="#000080">ASPFusion Security Box's List</font></b>
  72.      </td>
  73.   </tr>
  74.   <tr>
  75.     <td colspan="2"><font face="Arial" size="2" color="#9D9D9D">List of previously created ASPFusion Security Box. Click on the name to modify any existing ASPFusion Security Box.</font></td>
  76.   </tr>
  77. </table>
  78. <table width="100%" cellspacing="1">
  79.   <tr>
  80.        <td>
  81.                   <%set Result = SecurityBox.GetAllSectionKeys("WebSite.ini", "Path")%>
  82.                       <table width="100%" cellspacing="1">
  83.                   <%dim count
  84.                     count = 0%>
  85.                     <%for each member in Result
  86.                       count = count + 1%>
  87.                         <tr>
  88.                           <td width="5%" valign="top"><b>  <font face="Arial" size="2"><%=count&"."%></font></b></td>
  89.                           <td width="30%" valign="top">
  90.                               <font face="Arial" size="2"><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Modify, '<%=member.Key%>')" onmouseover="window.status='Modify ASPFusion Security Box <%=member.Key%>'; return true" onmouseout="window.status='';return true"><b><%=member.Key%></b></A></font>
  91.                           </td>
  92.                           <td width="65%" valign="top">
  93.                             <font face="Arial" size="2"><%=member.Value%></font>
  94.                           </td>
  95.                         </tr>
  96.                   <%next
  97.                   if (count = 0) then%>
  98.                           <td colspan="2">
  99.                             <FONT Face="Helvetica" Size="2"><%="No ASPFusion Security Box exist"%></FONT>
  100.                           </td>
  101.                   <%end if
  102.                     set Result = nothing
  103.                     set SecurityBox = nothing%>
  104.                       </table>
  105.       </td>
  106.     </tr>
  107. </table>
  108. <br>
  109. <table cellpadding="0" cellspacing="1" width="25%">
  110.   <tr width="100%" align="left">
  111.     <td><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Add, 'Add')" onclick="return websitesecurity_checkit();" onmouseover="window.status='Add'; return true" onmouseout="window.status='';return true"><img src="Images/add.gif" border="0"></a></td>
  112.   </tr>
  113. </table>
  114. <table align="center" width="100%">
  115.   <tr>
  116.     <td align="center" valign="bottom">
  117.       <font face="Arial" color="black" size="1">Copyright ⌐ 2000, Advanced Communications</font>
  118.     </td>
  119.   </tr>
  120. </table>
  121. </form>
  122. </body>
  123. </html>
  124.